Option Explicit

'################################################################
' Field
'################################################################
' List<SqlCondition>
Private fieldConditions as Collection

'################################################################
' Constructor
'################################################################
Private Sub Class_Initialize()
    Set fieldConditions = New Collection
End Sub

Private Sub Class_Terminate()
    Set fieldConditions = Nothing
End Sub

'################################################################
' Property
'################################################################
Public Property Get Conditions() As Collection
    Set Conditions = fieldConditions
End Property

'################################################################
' Function
'################################################################
Public Function hasCondition() As Boolean
    hasCondition = fieldConditions Is Nothing
End Function

Public Function addCondition(ByRef condition As SqlCondition) As Boolean
    fieldConditions.Add condition
End Function